home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / biz / demo / ArtStudioPro.lha / ArtStudioPro / Tools / MetaView / MetaView.install < prev    next >
Encoding:
Text File  |  1997-10-12  |  12.1 KB  |  450 lines
  1. ;$VER: MetaView Install 2.3 (12.10.1997)
  2. ;Copyright ©1996/97 Henk Jonas
  3.  
  4. (set @app-name "MetaView V2.3")
  5. (set @sourcedir (pathonly @icon))
  6. (set #wbversion (getversion "libs:version.library"))
  7. (set #wbversion (/ #wbversion 65536))
  8.  
  9. (if (< #wbversion 37)
  10.   (abort "\n\nAmigaDOS 2.0 or better is needed this software.")
  11. )
  12.  
  13. (message "Henk Jonas\n"
  14.          "present:\n\n"
  15.          "MetaView\n\n"
  16.          "This programm show and convert gfx-metafiles,\n"
  17.          "use the amigametaformat.library\n"
  18.          "and is Shareware.")
  19. (set #user-level @user-level)
  20. (user 2)
  21. (set @parentdir
  22.   (askdir
  23.     (prompt "Please choice the destination for MetaView.\n"
  24.             "I will create a drawer with name MetaView there,\n"
  25.             "if he not exist.")
  26.     (help @askdir-help)
  27.     (default "RAM:")
  28.     (disk)
  29.   )
  30. )
  31. (user #user-level)
  32.  
  33. (set @default-dest (tackon @parentdir "MetaView"))
  34.  
  35. (makedir @default-dest
  36.   (prompt "I create the drawer 'MetaView'.")
  37.   (help @makedir-help)
  38.   (infos)
  39. )
  40.  
  41. (complete 5)
  42.  
  43. (copylib 
  44.   (prompt "Now i install the 'amigametaformat.library'.")
  45.   (source (tackon @sourcedir "libs/amigametaformat.library"))
  46.   (dest  "libs:")
  47.   (optional "nofail" "force" "askuser")
  48.   (help "This library are needed for this programm.\n"
  49.         "It is very importent to install this!")
  50. )
  51.  
  52. (complete 10)
  53.  
  54. (set #driver
  55.   (askoptions
  56.     (prompt "Now i install the different Outputdrivers for the 'amigametaformat.library'.")
  57.     (choices "Strip" "AMF" "CGM" "EPS" "GEM" "WordWorth" "DR2D" "HPGL" "AI" "JMF" "WMF")
  58.     (help "the options:\n"
  59.           "* Strip     : the driver for all renderings, like screen, ILBM, printer etc.\n"
  60.           "* AMF       : are for output as Amiga Metafile Format.\n"
  61.           "* CGM       : are for output as Computer Graphics Metafile.\n"
  62.           "* EPS       : are for output as Encapsulated PostScript.\n"
  63.           "* GEM       : are for output as GEM Metafile.\n"
  64.           "* WordWorth : create ARexx scripts, for use in WordWorth.\n"
  65.           "* DR2D      : are for output as DR2D (for PageStream, DrawStudio...)\n"
  66.           "* HPGL      : are for output as HPGL (for Plotters)\n"
  67.           "* AI        : are for output as AdobeIllustrator\n"
  68.           "* JMF       : are for output as JavaMetaFile (for www-publishing)\n"
  69.           "* WMF       : are for output as WindowsMetaFile\n")
  70.   )
  71. )
  72.  
  73. (complete 20)
  74.  
  75. (makedir "libs:AMF")
  76.  
  77. (if (IN #driver 0)
  78.   (copylib 
  79.     (prompt "Now i install the stripdriver for 'amigametaformat.library'.")
  80.     (source (tackon @sourcedir "libs/AMF/amigametaformat-strip.driver"))
  81.     (dest  "libs:AMF/")
  82.     (optional "nofail" "force" "askuser")
  83.     (help "strip for all renderings on screen, printer and ILBM-output\n")
  84.   )
  85. )
  86.  
  87. (complete 21)
  88.  
  89. (if (IN #driver 1)
  90.   (copylib 
  91.     (prompt "Now i install the filedriver for 'amigametaformat.library'.")
  92.     (source (tackon @sourcedir "libs/AMF/amigametaformat-file.driver"))
  93.     (dest  "libs:AMF/")
  94.     (optional "nofail" "force" "askuser")
  95.     (help "file for saving as Amiga Meta Format Metafile\n")
  96.   )
  97. )
  98.  
  99. (complete 22)
  100.  
  101. (if (IN #driver 2)
  102.   (copylib 
  103.     (prompt "Now i install the CGMdriver for 'amigametaformat.library'.")
  104.     (source (tackon @sourcedir "libs/AMF/amigametaformat-cgm.driver"))
  105.     (dest  "libs:AMF/")
  106.     (optional "nofail" "force" "askuser")
  107.     (help "CGM for saving as Computer Graphics Metafile\n")
  108.   )
  109. )
  110.  
  111. (complete 23)
  112.  
  113. (if (IN #driver 3)
  114.   (copylib 
  115.     (prompt "Now i install the EPSdriver for 'amigametaformat.library'.")
  116.     (source (tackon @sourcedir "libs/AMF/amigametaformat-eps.driver"))
  117.     (dest  "libs:AMF/")
  118.     (optional "nofail" "force" "askuser")
  119.     (help "EPS for saving as Encapsulated PostScript\n")
  120.   )
  121. )
  122.  
  123. (complete 24)
  124.  
  125. (if (IN #driver 4)
  126.   (copylib 
  127.     (prompt "Now i install the GEMdriver for 'amigametaformat.library'.")
  128.     (source (tackon @sourcedir "libs/AMF/amigametaformat-gem.driver"))
  129.     (dest  "libs:AMF/")
  130.     (optional "nofail" "force" "askuser")
  131.     (help "GEM for saving as GEM Metafile\n")
  132.   )
  133. )
  134.  
  135. (complete 25)
  136.  
  137. (if (IN #driver 5)
  138.   (copylib 
  139.     (prompt "Now i install the WordWorth-ARexx-driver for 'amigametaformat.library'.")
  140.     (source (tackon @sourcedir "libs/AMF/amigametaformat-ww.driver"))
  141.     (dest  "libs:AMF/")
  142.     (optional "nofail" "force" "askuser")
  143.     (help "WordWorth-ARexx-driver for creating WordWorth-ARexx-script\n")
  144.   )
  145. )
  146.  
  147. (complete 26)
  148.  
  149. (if (IN #driver 6)
  150.   (copylib 
  151.     (prompt "Now i install the DR2D-driver for 'amigametaformat.library'.")
  152.     (source (tackon @sourcedir "libs/AMF/amigametaformat-dr2d.driver"))
  153.     (dest  "libs:AMF/")
  154.     (optional "nofail" "force" "askuser")
  155.     (help "DR2D-driver for creating DR2D-Output\n")
  156.   )
  157. )
  158.  
  159. (complete 27)
  160.  
  161. (if (IN #driver 7)
  162.   (copylib 
  163.     (prompt "Now i install the HPGL-driver for 'amigametaformat.library'.")
  164.     (source (tackon @sourcedir "libs/AMF/amigametaformat-hpgl.driver"))
  165.     (dest  "libs:AMF/")
  166.     (optional "nofail" "force" "askuser")
  167.     (help "HPGL-driver for creating HPGL-Output\n")
  168.   )
  169. )
  170.  
  171. (complete 28)
  172.  
  173. (if (IN #driver 8)
  174.   (copylib 
  175.     (prompt "Now i install the AI-driver for 'amigametaformat.library'.")
  176.     (source (tackon @sourcedir "libs/AMF/amigametaformat-ai.driver"))
  177.     (dest  "libs:AMF/")
  178.     (optional "nofail" "force" "askuser")
  179.     (help "AI-driver for creating AI-Output\n")
  180.   )
  181. )
  182.  
  183. (complete 29)
  184.  
  185. (if (IN #driver 9)
  186.   (copylib 
  187.     (prompt "Now i install the JMF-driver for 'amigametaformat.library'.")
  188.     (source (tackon @sourcedir "libs/AMF/amigametaformat-jmf.driver"))
  189.     (dest  "libs:AMF/")
  190.     (optional "nofail" "force" "askuser")
  191.     (help "JMF-driver for creating JMF-Output\n")
  192.   )
  193. )
  194.  
  195. (complete 30)
  196.  
  197. (if (IN #driver 10)
  198.   (copylib 
  199.     (prompt "Now i install the WMF-driver for 'amigametaformat.library'.")
  200.     (source (tackon @sourcedir "libs/AMF/amigametaformat-wmf.driver"))
  201.     (dest  "libs:AMF/")
  202.     (optional "nofail" "force" "askuser")
  203.     (help "WMF-driver for creating WMF-Output\n")
  204.   )
  205. )
  206.  
  207. (complete 40)
  208.  
  209. (copyfiles
  210.   (prompt "copy programm")
  211.   (source (tackon @sourcedir "MetaView"))
  212.   (dest @default-dest)
  213.   (infos)
  214.   (help "Now, i want copy the programm.")
  215. )
  216.  
  217. (complete 50)
  218.  
  219. (copyfiles
  220.   (prompt "copy MetaView.doc")
  221.   (source (tackon @sourcedir "MetaView.doc"))
  222.   (dest @default-dest)
  223.   (infos)
  224.   (help "Now, i want copy the MetaView.doc.")
  225. )
  226.  
  227. (complete 60)
  228.  
  229. (set #language
  230.   (askoptions
  231.     (prompt "Now i copy the guide for MetaView.\n"
  232.             "What is your favorite language?")
  233.     (choices "English" "Deutsch" "Español")
  234.     (help @askoptions-help)
  235.   )
  236. )
  237.  
  238. (complete 61)
  239.  
  240. (if (IN #language 0)
  241.   (copyfiles
  242.     (prompt "copy english MetaView.guide")
  243.     (source (tackon @sourcedir "MetaView.guide"))
  244.     (dest @default-dest)
  245.     (infos)
  246.     (help "Now, i want copy the english MetaView.guide.")
  247.   )
  248. )
  249.  
  250. (complete 62)
  251.  
  252. (if (IN #language 1)
  253.   (copyfiles
  254.     (prompt "copy german MetaView.guide")
  255.     (source (tackon @sourcedir "translations/MetaView_deutsch.guide"))
  256.     (dest @default-dest)
  257.     (infos)
  258.     (help "Now, i want copy the german MetaView.guide.")
  259.   )
  260. )
  261.  
  262. (complete 63)
  263.  
  264. (if (IN #language 2)
  265.   (copyfiles
  266.     (prompt "copy spanish MetaView.guide")
  267.     (source (tackon @sourcedir "translations/MetaView_espanol.guide"))
  268.     (dest @default-dest)
  269.     (infos)
  270.     (help "Now, i want copy the spanish MetaView.guide.")
  271.   )
  272. )
  273.  
  274. (complete 70)
  275.  
  276. (copyfiles
  277.   (prompt "copy amigametaformat.readme")
  278.   (source (tackon @sourcedir "libs/amigametaformat.readme"))
  279.   (dest @default-dest)
  280.   (infos)
  281.   (help "Now, i want copy the amigametaformat.readme.")
  282. )
  283.  
  284. (complete 80)
  285.  
  286. (copyfiles
  287.   (prompt "copy ARexx-Examples")
  288.   (source (tackon @sourcedir "ARexx-Examples"))
  289.   (dest (tackon @default-dest "ARexx-Examples"))
  290.   (files)
  291.   (all)
  292.   (infos)
  293.   (help "Now, i want copy some ARexx-Examples.")
  294. )
  295.  
  296. (user 2)
  297. (if (= 1 (askbool
  298.             (prompt "Do you have DrawStudio installed?")
  299.             (choices "Yes" "No")
  300.             (help "I want install to ARexx scripts for import and export "
  301.                   "graphics in DrawStudio with MetaView")
  302.          )
  303.     )
  304.     (
  305.        (set #dspath
  306.           (askdir
  307.             (prompt "Please choice the DrawStudio drawer.")
  308.             (help "I want install to ARexx scripts for import and export "
  309.                   "graphics in DrawStudio with MetaView")
  310.             (default "RAM:")
  311.             (disk)
  312.           )
  313.        )
  314.        (copyfiles
  315.          (prompt "copy DrawStudio import script")
  316.          (source (tackon @sourcedir "ARexx-Examples/DrawStudio_Import.dsrx"))
  317.          (dest (tackon #dspath "Rexx"))
  318.        )
  319.        (copyfiles
  320.          (prompt "copy DrawStudio export script")
  321.          (source (tackon @sourcedir "ARexx-Examples/DrawStudio_Export.dsrx"))
  322.          (dest (tackon #dspath "Rexx"))
  323.        )
  324.     )
  325. )
  326. (user #user-level)
  327.  
  328.  
  329. (if (= 1 (askbool
  330.             (prompt "Should i copy the example files?")
  331.             (choices "Copy" "Skip")
  332.             (help @askbool-help)
  333.             (default 1)
  334.          )
  335.     )
  336.     (copyfiles
  337.       (prompt "copy Examples")
  338.       (source (tackon @sourcedir "Examples"))
  339.       (dest (tackon @default-dest "Examples"))
  340.       (files)
  341.       (all)
  342.       (infos)
  343.       (help "Now, i want copy some Examples.")
  344.     )
  345. )
  346.  
  347. (complete 85)
  348.  
  349. (set #osvernum (getversion))
  350. (set #osver (/ #osvernum 65536))
  351. (set #osrev (- #osvernum (* #osver 65536) ) )
  352. (set #oldpatchvernum (getversion "c:SetPatch"))
  353. (set #newpatchvernum (getversion (tackon @sourcedir "SetPatch43_5/SetPatch")))
  354.  
  355. (if (AND (> #osver 39) (< #oldpatchvernum #newpatchvernum))
  356.   (if (= 1 (askbool
  357.               (prompt "I want copy a new SetPatch (43.5) to your 'c:' directory.\n"
  358.                       "This Software are published from Amiga Technologie and\n"
  359.                       "fix also a bug on 'mathieeesingbas.library' in Kick 3.1.\n"
  360.                       "The old 'c:SetPatch' will renamed to 'c:SetPatch.old'.")
  361.               (choices "Copy" "Skip")
  362.               (help "Press 'Copy' for install the new SetPatch and 'Skip' for not install.\n"
  363.                     "I think you should install this Patch.\n"
  364.                     "But if you get a GURU on MetaView-startup you must!")
  365.               (default 1)
  366.            )
  367.       )
  368.       (
  369.         (rename "c:SetPatch" "c:SetPatch.old")
  370.         (copylib
  371.           (prompt "copy new SetPatch")
  372.           (source (tackon @sourcedir "SetPatch43_5/SetPatch"))
  373.           (dest  "c:")
  374.           (optional "nofail" "force" "askuser")
  375.           (help @copylib-help)
  376.         )
  377.       )
  378.   )
  379. )
  380.  
  381. (if (> #osver 38)
  382.   (copylib
  383.      (prompt "copy tabs.gadget")
  384.      (source (tackon @sourcedir "libs/gadgets/tabs.gadget"))
  385.      (dest  "libs:gadgets/")
  386.      (optional "nofail" "force" "askuser")
  387.      (help @copylib-help)
  388.   )
  389. )
  390.  
  391. (complete 90)
  392.  
  393. (if (= 1 (exists ("envarc:MetaView.path")))
  394.   (if (= 1 (askbool
  395.               (prompt "Should i update the MetaView.path environment variable?")
  396.               (choices "Update" "Skip")
  397.               (help "The ARexxScript and the MetaView.datatype will use the variable for locate the executable.")
  398.               (default 1)
  399.            )
  400.       )
  401.     (
  402.       (textfile
  403.         (prompt "Create ENVARC: variable with path of MetaView")
  404.         (dest "envarc:MetaView.path")
  405.         (append (tackon @default-dest "Metaview"))
  406.         (help "The ARexxScript and the Metaview.datatype will use the variable for locate the executable.")
  407.       )
  408.       (textfile
  409.         (prompt "Create ENV: variable with path of MetaView")
  410.         (dest "env:MetaView.path")
  411.         (append (tackon @default-dest "Metaview"))
  412.         (help "The ARexxScript and the Metaview.datatype will use the variable for locate the executable.")
  413.       )
  414.     )
  415.   )
  416. )
  417.  
  418. (complete 95)
  419.  
  420. (user 2)
  421. (if (= 1 (exists (tackon @sourcedir "keyfile.metaview")))
  422.     (copyfiles
  423.       (prompt "copy keyfile")
  424.       (source (tackon @sourcedir "keyfile.metaview"))
  425.       (dest @default-dest)
  426.       (infos)
  427.       (help "Now i copy the keyfile.")
  428.     )
  429. )
  430. (if (= 0 (exists (tackon @default-dest "keyfile.metaview")))
  431.     (message
  432.        "Don`t forget to register!\n\n"
  433.        "Please send $20 or 30,- DM to me:\n\n"
  434.        "Henk Jonas\n"
  435.        "Zionskirchstr. 28\n"
  436.        "10119 Berlin\n"
  437.        "Germany"
  438.        (help "Look at MetaView.readme, MetaView.doc "
  439.              "or MetaView.guide for register")
  440.     )
  441. )
  442. (if (= 1 (exists (tackon @default-dest "keyfile.metaview")))
  443.     (message
  444.       "Thank you for register MetaView!"
  445.     )
  446. )
  447.  
  448. (complete 100)
  449.  
  450.